home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 83.bas < prev    next >
BASIC Source File  |  1995-01-23  |  9KB  |  169 lines
  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED06.PMB"
  3. 30 CLS 1 : COLOR 5 : PRINT "DEFCON L5"
  4. 40 PRINT "written  TAKAO KUSHIDA"
  5. 50 S$="%CQ8T135" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  6. 60 '
  7. 70 '
  8. 80 '
  9. 90 AL$="@39V6O4L16Q8" : AR$=AL$+"[" : AC$=AL$+"[[@32" 
  10. 100 A1L$=AL$+"[B4>C8<B4>C8R8C8 <B4>C8<B4>D8C8<B8 "
  11. 110 A1R$=AR$+"[G4 A8 G4 A8R8A8  G4 A8 G4 B8A8 G#8"
  12. 120 A1E$=AL$+"[B4>C8<B4>C8R8<E8 &E2 DRR BRRE"
  13. 130 A1F$=AR$+"[G4 A8 G4 A8R8 C8 &C2<BRR>GRRC"
  14. 140 A1G$=AL$+"[A4&A8B4>C8RR DRRRDRC4<B4>C8"
  15. 150 A1H$=AR$+"[F4&F8G4 A8RR BRRRBRA4 G4 A8"
  16. 160 A1I$=AL$+"[A4&A8B4>C8RR DRRRDRC4 E4<G4"
  17. 170 A1J$=AR$+"[F4&F8G4 A8RR BRRRBRA4 B4 E4"
  18. 180 A2L$=AL$+"E4F#4G8A4 BRRRBRA4 G4A4 "
  19. 190 A2R$=AR$+"C4D4 E8F#4GRRRGRF#4E4F#4"
  20. 200 A2E$=AL$+"B4>C8<G4&G8A4 B4>C8<G4&G8>D4"
  21. 210 A2F$=AR$+"G4 A8 E4&E8F4 G4 A8 E4&E8 A4"
  22. 220 A2G$=AL$+"B4>C8<G4&G8A4 B4&B8>C4&C8<B4"
  23. 230 A2H$=AR$+"G4 A8 E4&E8F4 G4&G8 A4&A8 G4"
  24. 240 A3L$=AL$+"   A4B4>CRD4<ARRRA8B4>C4D4"
  25. 250 A3R$=AC$+"R8 A4B4>CRD4<ARRRA8B4>C4D8"
  26. 260 A3L$=AL$+"   A4B4>CRD4<ARRRA8B4>C4D4"
  27. 270 A3R$=AC$+"R8 A4B4>CRD4<ARRRA8B4>C4D8"
  28. 280 A3E$=AL$+"   B2&B4&B8>C2D4&D8<G4"
  29. 290 A3F$=AR$+"   G2&G4&G8 A2B4&B8 E4"
  30. 300 A3G$=AL$+"   A4&A8G4&G8E4&E8 D8C8<B4>C8D8D#8"
  31. 310 A3H$=AR$+"   E4&E8D4&D8C4&C8<B8A8 G4 A8B8B8"
  32. 320 '
  33. 330 C1L$="@44V7O5L16Q3   CRR<E>RRCRRR ER DRCR CRR<E>RRCRRR<G#R>CR<BR Q8"
  34. 340 C1R$="@44V7O5L16Q3  <ARR C RRARRR>CR<BRAR ARR C RRARRR ER AR G#R Q8"
  35. 350 C1C$="@44V3O5L16Q3R8 CRR<E>RRCRRR ER DRCR CRR<E>RRCRRR<G#R>CR<   Q8"
  36. 360 C2L$="@44V6O3L16    A>CE<AR>GREREDRCRD<E A>CE<AR>GREREDRGRBR"
  37. 370 C2R$="@44V2O3L16R8  A>CE<AR>GREREDRCRD<E A>CE<AR>GREREDRGR  "
  38. 380 C2E$="@44V6O3L16   >FEDERCRDR<A>CRERAG F>E<DERCRDR<A>CRERG#R"
  39. 390 C2F$="@44V2O3L16R8 >FEDERCRDR<A>CRERAG F>E<DERCRDR<A>CRER   "
  40. 400 C2G$="@44V6O3L16   >FEDERCRDR<A>CRERAG F>E<DERC>DCR<BG#RERDR"
  41. 410 C2H$="@44V2O3L16R8 >FEDERCRDR<A>CRERAG F>E<DERC>DCR<BG#RER  "
  42. 420 C3L$="@44V5O3L16   >G8<B8>C<GR>DRRDRD8<G8> <B8>C8(<B>C8)3<B>D8"
  43. 430 C3R$="@44V1O3L16R8 >G8<B8>C<GR>DRRDRD8<G8> <B8>C8(<B>C8)3<B>"
  44. 440 C3E$="@44V5O3L16   >G8F8ED8ERED8C8<B8  >C4<F8>D4<G8>E4"
  45. 450 C3F$="@44V1O3L16R8 >G8F8ED8ERED8C8<]]]] A4 D8 B4 E8>C4"
  46. 460 C3G$="@44V5O3L16   >>CRC8<B>C8D8<G>C<A>D8EA8D#D8C8<B>CDD#E8G8G#8"
  47. 470 C3H$="@44V1O3L16R8 >>CRC8<B>C8D8<G>C<A>D8EA8D#D8C8<B>CDD#E8G8   "
  48. 480 C4L$="@44V7O4L16Q1   AR>ERDERG<GA>DERA<EF# GA>ERDER<E>ERCDR<A>GR Q8"
  49. 490 C4R$="@44V3O4L16Q1R8 AR>ERDERG<GA>DERA<EF# GA>ERDER<E>ERCDR<A>   Q8"
  50. 500 C4E$="@44V7O4L16Q1   AR>ERDERG<GA>DERA<EF# Q8[<<A8>D8E8G8A8>C#8DEGA"
  51. 510 C4F$="@44V3O4L16Q1R8 AR>ERDERG<GA>DERA<EF# Q8[<<A8>D8E8G8A8>C#8DE  "
  52. 520 C5$ ="@60V8O4L16Q8   <ER>E8AE8DE8<A8>ACA<D ER>E8AE8DE8<EA>AEB8"
  53. 530 E1L$="@60V6O4L16Q8   (<A>AAA>C8<A>D8<A>E8<<A>AEA)"
  54. 540 E1R$="@60V3O4L16Q8R8 (<A>AAA>C8<A>D8<A>E8<<A>AE) "
  55. 550 E2L$="@56V3O3L16Q8   R4A2R8>AB32>C32<< BRRR>CRER RRRRRRRR "
  56. 560 E2R$="@56V0O3L16Q8R  R4A2R8>AR<        BRRR>CRER RRRRRRR  "
  57. 570 E3L$="@51V3O3L16Q4 (A>A<)A8>A<A(G>G8<)G>G<(F#>F#<)F#8EF#(G>G8<)G>GQ8"
  58. 580 E3R$="@51V0O3L16Q4R8(A>A<)A8>A<A(G>G8<)G>G<(F#>F#<)F#8EF# G>G8<G  Q8"
  59. 590 E3E$="@51V3O3L16Q4  (A>A<)A8>A<A(G>G8<)G>G(C>CC<)C>C<<G>GG<G>(G#)4Q8"
  60. 600 E3F$="@51V0O3L16Q4R8(A>A<)A8>A<A(G>G8<)G>G(C>CC<)C>C<<G>GG<G>     Q8"
  61. 610 FL$="@51V5O3L16Q5%R5U40" : FR$=FL$+"%L5V5U-10"
  62. 620 F1L$=FL$+"  GBR>C#R<F#G2F#R<A>DERG8&GGRRF#RERD8"
  63. 630 F1R$=FR$+"  GBR>C#R<F#G2F#R<A>DERG8&GGRRF#RERD8"
  64. 640 F1E$=FL$+"  C#RRD8<A>D#RE8<A8>ARA8 <RRERRARR> G8&GF#8&F#A8"
  65. 650 F1F$=FR$+"  C#RRD8<A>D#RE8<A8>ERE8 <RRARRERR> G8&GF#8&F#A8"
  66. 660 F1G$=FL$+" >(C#32DR32)C#DR<ARGRF#G8A8>(C#32DR32)C#DR<ARGRF#>ERE8"
  67. 670 F1H$=FR$+" >(C#32DR32)C#DR<ARGRF#G8A8>(C#32DR32)C#DR<ERDRC# BRB8"
  68. 680 F1I$=FL$+" >C#32D32&DC#RDC#RD8&DC#8<G8A8 V4<RRRRRARRERR>AR>E<A8"
  69. 690 F1J$=FR$+"  G#32A32&AG RAG RA8&AG8  D8E8 V4<RRARRRRRARR>ER>A<E8"
  70. 700 F2L$=FL$+" <A8>A8<R>A8<A>G8<R>F#8<E>G8 <A8>A8<A>A8<A>>D8<<G >A8<G>G8"
  71. 710 F2R$=FR$+" <R8>E8<A>E8<R>D8<G>D8 <R>E8 <A8>A8<A>A8<A> A8 <G>>C#8R<E8"
  72. 720 F2E$=FL$+" <A>DE8G8F#E8DRDA8A8 >DRC#R<GARA>DRC#<GRGE8"
  73. 730 F2F$=FR$+" <A>DE8G8F#E8DRDA8A8 >DRC#R<GARA>DRC#<GRGE8"
  74. 740 F2G$=FL$+">(C#32DR32)C#DRE8<ARA>GR<A8>(C#32DR32)C#DRE<A#8>D<A8>C#<G8"
  75. 750 F2H$=FR$+">(C#32DR32)C#DRE8<ARA>GR<A8>(C#32DR32)C#DRE<A#8>D<A8>C#<G8"
  76. 760 F2I$=FL$+"  AA#<A8A#>D<A#>C#RC#<A#8A8G8 AA#R>C#DREFRGG#32AR32G8<A8"
  77. 770 F2J$=FR$+"  AA#<A8A#>D<E >C#RC#<A#8A8G8 AA#R>C#DREFRGG#32AR32G8<A8"
  78. 780 F3L$=FL$+"%CV3Q8    D4E4F8&FERR<AB >CDD8D#32E32&E&E8F8&FERR<A8"
  79. 790 F3R$=FR$+"%CV0Q8R8  D4E4F8&FERR<A8 >CDD8D#32E32&E&E8F8&FERR<  "
  80. 800 F3E$=FL$+"%CV2Q8    D4E4F8&FERR<A8 >CDD8D#32E32&E&E8A8&AGRR<A8"
  81. 810 F3F$=FR$+"%CV0Q8R8  D4E4F8&FERR<A8 >CDD8D#32E32&E&E8A8&AGRR<  "
  82. 820 F3G$=FL$+"%CV2Q8    D4E4F8&FERR<A8 >D1&D1"
  83. 830 F3H$=FR$+"%CV0Q8R8  D4E4F8&FERR<    A1&A1"
  84. 840 B0$= "@77V11O1L16Q8  A4AR>A4&A8<A>A<A8 A4AR>A4<ERA>A<A8"
  85. 850 B0E$="@77V11O1L16Q8  A4AR>A4&A8<A>A<A8 A4D4E4 @27V8O2G8G#8"
  86. 860 B0F$="@77V11O1L16Q8 (>E8&E<E>E<E>E8&E<E>E<E>E8<E8)"
  87. 870 B1$= "@28V10O2L16Q6  A8&AAE8&EEDRDD8EGG# A8&AAE8&EEDRDD8>C<E8"
  88. 880 B1E$="@28V10O2L16Q6  A8&AAE8&EEDRDD8EGG# A8&AAE8&EEDGD>D8<EG#B"
  89. 890 B1F$="@28V10O2L16Q6  D8&DA8&AD8E8&EB8&BE8 F8&F>C8&C<F8 GG#RG#RG#B8"
  90. 900 B2$ ="@28V10O2L16Q6  <A8>A8AGA8<D8>D8<E8>E<G A>ARGAGA8 R>D<E8>E8<G8"
  91. 910 B2E$="@28V10O2L16Q6  FRF8CRCDRDD#8E8F8 G4G8&GFF#GE8G#8B8"
  92. 920 B2F$="@28V10O2L16Q6  FRF8CRCDRDD#8E8F8 D4D8&DDRD#E8<B8>E8"
  93. 930 B3$ ="@28V10O2L16Q6  F8&FFREFRFRC#8A8G#8 G8&GGRFG8G8&GF#8&F#F8"
  94. 940 B3E$="@28V10O2L16Q6  ER<E8>E8&EERED8C8D8 ARA8GARARAG8D8E8"
  95. 950 B3F$="@28V10O2L16Q6  ARA8A>C<AGRGD8D#8E8 F8&FFREF8 G8G#8A8B8"
  96. 960 B4$ ="@107V9O1L16Q6  A8A8GAAG8GD8E8GG# A8A8GAAG8GD8E8G8"
  97. 970 B4E$="@107V9O1L16Q8  G8A8(GA8)GA8AG8 EGA8(GA8)GARAE8 "
  98. 980 B4F$="@107V9O1L16Q8  A8A8GAAG8GD8E8GG# ARRRRRRR R8D8D#8E8"
  99. 990 '
  100. 1000 P1$= "@6 V10O0L16  GRRRGRRRGRRRGRRR   GRRRGRRRGRRRGRRR"
  101. 1010 S1$= "@6 V10O0L16  GRRRRRRRRRRRRRRR   RRRRRRRRRRRRRRRR"
  102. 1020 R1$= "@6 V10O0L16  CRRRRRCRRRRRGRGR   CRRRRRCRRRRRCRRG"
  103. 1030 P2$= "@6 V12O3L16  RRRRCRRRRRRRCRRR   RRRRCRRRRRRRCRRR"
  104. 1040 Q2$= "@6 V12O3L16  RRRRCRRRRRRRCRRR   RRRRCRRRRCRRCRV4CC"
  105. 1050 R2$= "@6 V12O3L16  RRRRCRRRRRCRRCRC   RRRRCRRRRRRRRRCR"
  106. 1060 P3$= "@12V10O7L16  RRC<RCR>CR RRC<RCR>C<C> (RRC<RCR>CR)"
  107. 1070 S3$= "@12V10O7L16  RRC<RCR>CR RRC<RCR>C<C>  "
  108. 1080 P4$= "@9 V7 O1L16  CR<C>RGR<C>DER<C>RGR<CG> CR<C>RGR<C>DE<C>CRGR<CR"
  109. 1090 S4$= "@9 V7 O1L16  CR<C>RGR<C>DER<C>RGR<CG> C"
  110. 1100 P5$= "@7 V7 O1L16 (%R5G%L5R%CR4)RRGR(%CGR%L5RR@5%R5CR@7])%CGRRR"
  111. 1110 Q5$= "@7 V7 O1L16 (%R5G%L5R%CR4)RRGR(%CGR%L5RR@5%R5CR@7])%C(G@5C@7)"
  112. 1120 P6$= "@12V7 O4L16 (%R9RRCRRV2%CCRV3%L9CV5)3 %R9RC%L9CRR%CV2CV4CR"
  113. 1130 BP1$="@6 V8 O0L16  R1R2RRGRGRGR"
  114. 1140 BP2$="@9 V0 O6L16  (RRFR])4(FFFF])FF]F]F]]%R9F]]]%L9F %C@1O2G8"
  115. 1150 BP3$="@9 V8 O3L16  R2RRRRGRRR (<G>GR)3<G>%R9GR %L9GR%C@8GR"
  116. 1160 ' 
  117. 1170 'PLAY  B4E$,F2G$,F2H$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$ : END
  118. 1180 'PLAY  ,F3L$,F3R$,C4L$,C4R$,C5$,,P1$,P3$,P6$ : END
  119. 1190 'PLAY  B4E$,F2L$,F2R$,C4L$,C4R$,C4C$,R2$,P4$,P3$,P6$ : END
  120. 1200 'PLAY ,,,,,,P1$,P2$,P6$ :END
  121. 1210 'GOTO 1560
  122. 1220 '
  123. 1230 PLAY      ,    ,E1R$,,,,   ,   ,P3$,P4$,"T134"
  124. 1240 PLAY      ,E1L$,E1R$,,,,   ,R2$,S3$,S4$
  125. 1250 PLAY  B0F$,E1L$,E1R$,E2L$,E2R$,,R1$,R2$,P3$,P4$,P5$
  126. 1260 PLAY  B0F$,E1L$,E1R$,    ,    ,,R1$,R2$,P3$,P4$,Q5$
  127. 1270 PLAY  B0F$,E1L$,E1R$,E2L$,E2R$,,R1$,R2$,P3$,P4$,P5$
  128. 1280 PLAY  B0F$,E1L$,E1R$,    ,    ,,R1$,R2$,S3$,S4$,Q5$
  129. 1290 PLAY  B0$ ,E1L$,E1R$,,,,S1$
  130. 1300 PLAY  B0$ ,E1L$,E1R$,,,,S1$,S3$,BP1$
  131. 1310 PLAY  B0$ ,    ,E1R$,,,,P1$,P3$
  132. 1320 PLAY  B0E$,    ,    ,,,,P1$,S3$
  133. 1330 PLAY  B1$ ,C1L$,C1R$,C1C$,,,P1$,P2$,P3$,"T135"
  134. 1340 PLAY  B1$ ,C1L$,C1R$,C1C$,,,P1$,Q2$,P3$
  135. 1350 PLAY  B1$ ,C1L$,C1R$,C1C$,,,P1$,P2$,P3$
  136. 1360 PLAY  B1E$,C1L$,C1R$,C1C$,,,P1$,Q2$,P3$
  137. 1370 PLAY  B1$ ,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$
  138. 1380 PLAY  B1E$,C1L$,C1R$,C1C$,A1E$,A1F$,P1$,Q2$,P3$
  139. 1390 PLAY  B1$ ,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$
  140. 1400 PLAY  B1F$,C1L$,C1R$,C1C$,A1G$,A1H$,P1$,Q2$,P3$,BP2$
  141. 1410 PLAY  B2$ ,C2L$,C2R$,,A2L$,A2R$,R1$,R2$,P3$,P4$
  142. 1420 PLAY  B2E$,C2E$,C2F$,,A2E$,A2F$,R1$,R2$,P3$,P4$
  143. 1430 PLAY  B2$ ,C2L$,C2R$,,A2L$,A2R$,R1$,R2$,P3$,P4$,P5$
  144. 1440 PLAY  B2F$,C2G$,C2H$,,A2G$,A2H$,R1$,R2$,P3$,P4$,Q5$
  145. 1450 PLAY  B3$ ,C3L$,C3R$,,A3L$,A3R$,P1$,P3$
  146. 1460 PLAY  B3E$,C3E$,C3F$,,A3E$,A3F$,R1$,R2$,P3$,P5$
  147. 1470 PLAY  B3$ ,C3L$,C3R$,,A3L$,A3R$,P1$,P2$,P3$
  148. 1480 PLAY  B3F$,C3G$,C3H$,,A3G$,A3H$,P1$,R2$,P3$,P4$,Q5$,BP1$
  149. 1490 PLAY  B1$ ,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$
  150. 1500 PLAY  B1E$,C1L$,C1R$,C1C$,A1E$,A1F$,P1$,Q2$,P3$
  151. 1510 PLAY  B1$ ,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$
  152. 1520 PLAY  B1F$,C1L$,C1R$,C1C$,A1I$,A1J$,P1$,Q2$,P3$,BP2$
  153. 1530 PLAY      ,E3L$,E3R$,C1L$,C1R$,C1C$,R1$,R2$,P3$,P4$
  154. 1540 PLAY      ,E3L$,E3R$,C1L$,C1R$,C1C$,R1$,R2$,P3$,P4$
  155. 1550 PLAY  B4$ ,E3L$,E3R$,C1L$,C1R$,C1C$,R1$,R2$,P3$,P4$,P5$
  156. 1560 PLAY  B4F$,E3E$,E3F$,C1L$,C1R$,C1C$,S1$,S2$,S3$,S4$,Q5$,BP3$
  157. 1570 PLAY  B4E$,F1L$,F1R$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
  158. 1580 PLAY  B4E$,F1E$,F1F$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
  159. 1590 PLAY  B4E$,F1G$,F1H$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
  160. 1600 PLAY  B4E$,F1I$,F1J$,C4E$,C4F$,C5$,S1$,P2$,S3$,P6$,BP1$
  161. 1610 PLAY  B4E$,F2L$,F2R$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
  162. 1620 PLAY  B4E$,F2E$,F2F$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
  163. 1630 PLAY  B4E$,F2G$,F2H$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
  164. 1640 PLAY  B4E$,F2I$,F2J$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$,BP2$
  165. 1650 PLAY      ,F3L$,F3R$,C4L$,C4R$,C5$,P1$,P3$,P6$
  166. 1660 PLAY      ,F3E$,F3F$,C4L$,C4R$,C5$,P1$,P3$,P6$
  167. 1670 PLAY      ,F3L$,F3R$,    ,C4R$,   ,S1$,S3$
  168. 1680 PLAY      ,F3G$,F3H$
  169.